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WELCOME TO THE 80 NOTEBOOK 

Let me take this opportunity to introduce myself to you. My name is Michael Clark and 
I am the editor of THE 80 NOTEBOOK. Our offices are located in rural Pennsylvania and can 
be reached by mail at R. D. #3, Nazareth, PA 18064. or by phone at 215-759-6873. 

While our publication is a small one, we will try our best to bring you the finest 
articles and programs possible for the TRS-80. Because we do not carry advertising from 
TRS-80 vendors, we can devote the pages of THE NOTEBOOK to things of interest to you, the 
reader. This is not to say that we intend to ignore the wide variety of hardware and soft- 
ware products currently available for the TRS-80 or any such products marketed in the 
future. We would prefer to analyze new products and objectively review them in future 
articles in THE NOTEBOOK to help you, the TRS-80 user, get only the best available. In the 
same spirit, our publication will give you, each month, the best we have to offer in 
articles covering a wide range of programming interests and our articles will always carry 
complete, well-documented source listings of all programs discussed in THE NOTEBOOK. 

Some of the various programming topics to be covered in future issues include: games, 
computer assisted instruction, adventure scenerios, word processing, new peripheral hard- 
ware, computer simulation techniques, operating systems and languages, business software, 
data base management, BASIC and Assembly Language programming lessons, and artificial 
intelligence, just to name a few. 

For our first issue, we have chosen to entertain you with some games. Our feature 
article offers you a detailed look at a computerized version of the popular game - 
MONOPOLY (Monopoly is a trademark of Parker Brothers Games). This version of Monopoly is 
not just a demonstration of the basic workings of the game but is a program which will 
enable your TRS-80 to actively play the game as one of its players, both obey and utilize 
all the capabilities provided in the rules and act as banker, allowing up to 8 human 
players to challenge the computer to a game of Monopoly. The program provides all the 
visual aids needed to play the game without having the box version of Monopoly present* 
The level of detail provided by this article and its program is not often found in other 
magazines' articles! 

Not all our articles come from our staff. If you have an interesting or unusual use 
for your TRS-80 whether it be a game, simulation or whatever, write an article about your 
topic and submit it to THE NOTEBOOK for our consideration. Be sure you include all source 
listings and documentation so our readers can both understand and enjoy your idea. If your 
article is chosen for publication, we will pay you #15 for each typeset page your article 
takes in our publication. 



To aid in typing BASIC source listings in your articles, we have devised the following 
list of special character symbol replacements: .GT. means greater than, .LT. means less 
than, .EQ. means equal to, .GE. means greater than or equal to, ,LE. means less than or 
equal to, .NE. means not equal to. These symbol replacements make "IF" statements more 
understandable and easier to type on a conventional typewriter. All the source listings we 
print will carry these symbol replacements. When entering source programs from THE 80 
NOTEBOOK into your IRS-80, be sure to use the proper symbols for each of the six character 
typed symbol replacements. 

With all of this available to you, we hope you will agree that THE 80 NOTEBOOK is the 
TRS-80 publication for you. We hope -you enjoy this first issue and every Issue for many 
years to come. 



i e # ... . 



NOTICE: Any individual wishing to trade or sell TRS-80 hardware can advertise free 
in our classified section. 

Anyone wishing to comment on new products should send a letter to the editor for 
publication or submit an article detailing the use of a new product. 

Any TRS-80 clubs may submit club news to be published free of charge. 

• ••••••••••• •*••••••• , 

A COMPUTERIZED VERSION OF PARKER BROTHERS' MONOPOLY 

This month we are featuring our version of Parker Brothers' popular game Monopoly. 
This program allows the TRS-80 to play the game along with up to 8 human players. Virtually 
every phase of the game and the instructions for the game are simulated by this program 
along with a game strategy algorithm used by the program in its playing of the game. The 
program is designed for a Level 2 16K TRS-80. Here is an outline of the program's various 
segments and their functions: 

INITIALIZATION SECTION - Lines 5 thru 46: 

This section of the program makes all the preparations for the start of the game. This 
is the only area of the program which departs from the instructions for the box version of 
the game. For one thing, the program only plays the (regular) long version of the game. It 
always acts as the banker for the game. In place of using tokens, each player Is identified 
by a number from 1 to 8 with the TRS-80 being identified by the number 9. Prior to the 
start of the program, the human players must choose the order in which they will take their 
turns at play with that order being the same as the token number of each player. This 
information is conveyed to the program when the program asks how many players are challeng- 
ing it and what their names are. The players' names are stored in array A1$ with the number 
of players stored in variable "P». 

Some of the other array and variable fields Initialized at this time Include: 

"A" - A 4,0 element array representing each square on the board. This array will show 
the token numbers of the owners of the various properties on the board. 

A7 - A 40 element array showing the number of houses (0 to 4) or hotels (5) on each 
property on the board. For the start of the game, both "A" and A7 are initialized to - 
unoccupied. 

AS - A 16 element array containing the Community Chest card deck after shuffling that 
deck. 

A9 - A 16 element array containing the Chance card deck after shuffling that deck. 
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Within the initialization section, GOSUBs are performed to shuffle the Chance and 
Community Chest card decks (GOSUB 3000 and GOSUB 3100) . 

For each player, array A2 is initialized to 1500 showing that players' cash 
balance; array B is initialized to 1 showing which square on the board that player is 
sitting on. 

Array A6 is initialized to showing that no player has a "get out of jail free" 
card. A6 will be set to 1 if a Community Chest "get out of jail free" card is drawn by 
a player, 2 if a Chance "get out of jail free" card is drawn by a player, and 3 if both 
"get out of jail free" cards are drawn by a player. When a "get out of jail free" card 
is used by a player, A6 will be reset accordingly. 

Some of the other variables used by the program for game control or in its role as 
a player include: 

TC - Set to 1 if the Community Chest "get out of jail free" card is drawn and 
retained by a player. 

TG - Set to 1 if the Chance "get out of jail free" card is drawn and retained by a 
player. 

Finally, the initialization section displays the "GO" square where every player's 
token starts at the beginning of the game. This is done through a GOSUB to line 2000. 
This will display the following screen if, for example, Tom and Bob are playing against 
the computer: 

PLAYER NONE CASH 

START 

SQUARE 1 

PROPERTY - GO 

OWNER - NONE 

TOKENS - TOM BOB TRS-80 

PLAYER ACTION SECTION - Lines 4-8 thru 501 : 

In this section of the program, an involved series of instructions is performed to 
simulate the actions of both the human and computer players. 

The variable I will indicate the number of the player being simulated in the loop. 
The variable S indicates the number of doubles a player has rolled within one turn. If 
S = 3 t the player is sent to jail per Monopoly's normal rules; 



;»• 



If sent to jail during a turn, a player must stay there until his next turn; at 
which time the player may use a "get out of jail free" card or pay the $50 fine to get 
out of jail. If the player elects to stay in jail, he must roll a set of doubles or 
pay the $50 fine within three turns after being sent to jail in order to get out of 
jail. After three turns in jail and unable to pay the fine, a player is forced to quit! 

Variable B(l) indicates the square a player's token is on at the start of a turn. 
If B(l)=0, that player is no longer in the game. 

By using a random number, variables X and Y are set to the rolls of the dice for 
a player's turn. Tha location of a player's token is displayed followed by a display 
of token's position after moving the roll of the dice. If the move places the token on 
or past the GO square, the player collects 200 dollars. If the player lands on JUST 
VISITING or FREE PARKING, nothing happens. If the player lands on INCOME TAX or LUXURY 
TAX, he must pay 200 dollars or 75 dollars respectively. 
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If a player must pay a certain amount to any other player or the bank during his 
turn and has no cash, he is given the opportunity to mortgage or sell houses and hotels 
back to the bank for the cash specified by the normal Monopoly rules. If the resulting 
cash balance is insufficient to pay the player's debt, the player is forced to quit. 

If the player lands on either the COMMUNITY CHEST or CHANCE squares, the program 
simulates the drawing of a card from the appropriate deck and acting on the information 
on the card. Lines 4-00 to 4.90 resolve any effects of the card draw. Among these effects 
are: the change in cash levels in variable BG, the square your token is relocated to 
in variable BH, the jailing status by variable BI, the giving or collecting of cash 
from or to all other players in variable BJ and the rent multiplication factor in 
variable BW, 

If you land on a square where rent is owed to another player, the rent is computed 
and distributed. If the property is unowned, the player has the option to buy it. The 
property remains unowned if not purchased by that player at that time. This differs 
from the auction and private buying and selling of properties allowed in the normal 
Monopoly rules. 

If the player's roll of the dice was a double, his turn continues with another 
roll of the dice unless three doubles in one turn has sent him to jail. 

PLAN TO GET OUT OF JAIL - Lines 1100 thru 1199: 

This section of the program allows the player who has landed in jail to use a GET 
OUT OF JAIL FREE card or pay the #50 fine to get out of jail before making his first 
move within a turn. Logic is provided to enable the computer to make these decisions 
based on cash and free card availability. So long as it has enough cash, the computer 
will always elect to get out of jail on his next turn in order to continue buying 
properties and collect $200 GO money. 

DISPLAY A TITLE DEED FOR A PROPERTY - Lines 2000 thru 2365: 

This section of the program serves as a subroutine used to display all the infor- 
mation available concerning the property or square on which a player's token is located. 
It is called by a number of other sections of the program both at the start of and 
during the playing of the game. 

Once the screen is cleared, the name of the player whose turn it is , is printed 
along with his or her cash balance. Then, a section supplied message is printed along 
with the number of the square on which that player's token rests. The section supplied 
message is a parameter passed to the subroutine in the variable M9&. The square number 
is passed in AZ and the pointer to the name of the player is passed in M8. 

After this, another subroutine is called through a G0SUB to 3205. This call serves 
to look-up all the statistics about the property or square pointed to by AZ. Upon return, 
if AF$ is blank, then the square in question is not a property and a further determin- 
ation must be made to assign the name of the square in AFf. This determination would 
resolve "GO", "COMMUNITY CHEST", "INCOME TAX", "CHANCE" , "JAIL", "FREE PARKING". "GO TC 
JAIL" or "LUXURY TAX". ' 

At this time, the property name AFf is printed along with the name of the owner of 
the property with "NONE" meaning not owned and "TRS-80" meaning owned by the computer. 
If the property is currently mortgaged, the routine informs you of this. 

If the square is the JAIL, the routine next prints who is in JAIL followed by who 
is JUST VISITING, otherwise the routine prints the name of the color group to which that 
property belongs along with the tokens sitting on that property. 
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The color group name is contained in FZ$ after returning from a GOSUB to line 6000 
which determines the name of the color group to which a property belongs and the owner 
of the color, if any. 

If the square in question is a property, the price, mortgage value, rent and improve- 
ment cost, if any, is printed. If the property is a utility, the rent is expressed in a 
multiple of the throw of the dice. If the property is a railroad, the rent is expressed as 
a function of the number of railroads owned by one player. If the property is a member of 
a color group, the rent is expressed as a function of the number of houses or a hotel on 
that property. 

If the square is a color group property, the number of houses or a hotel is printed 
along with the cost of buying additional houses or trading in four houses for a hotel on 
that property. Finally, the screen pauses for 2 seconds before the routine returns to the 
line in the program which called this routine. 

Here are some examples of what you see on the screen for various tokens on different 
types of properties: 



EXAMPLE 1: 



EXAMPLE 2: 



EXAMPLE 3: 



EXAMPLE /,: 



PLAYER TOM GASH 1500 

NEW LOCATION 

SQUARE 3 

PROPERTY - COMMUNITY CHEST 

OWNER - NONE 

TOKENS - TOM BOB TRS-80 



PLAYER TOM CASH 1250 
NEW LOCATION 
SQUARE 11 
PROPERTY - JAIL 
OWNER - NONE 
IN JAIL - BOB 
JUST VISITING 
TOKENS - TOM TRS-80 



PLAYER TOM CASH 925 

NEW LOCATION 

SQUARE 6 

PROPERTY - READING RR 

OWNER - BOB 

CURRENTLY MORTGAGED 

COLOR GROUP - RAILROADS 

TOKENS - TOM 

PRICE - 200 

MORTGAGE VALUE - 100 

RENT - 25 

IF 2 RR OWNED 50 

IF 3 RR OWNED 100 

IF k RR OWNED 200 



PLAYER TOM CASH 1425 
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NEW LOCATION 

SQUARE 13 

PROPERTY - ELECTRIC CO 

OWNER - NONE 

COLOR GROUP - UTILITIES 

TOKENS - TOM 

PRICE - 150 

MORTGAGE VALUE - 75 

IF 1 UTILITY OWNED, RENT = 4X DICE THROWN 

IF BOTH UTILITIES OWNED, RENT = 10X DICE THROWN 



EXAMPLE 5: 



PLAYER TOM CASH 1300 

NEW LOCATION 

SQUARE 40 

PROPERTY - BOARDWALK 

OWNER - BOB 

COLOR GROUP - BLUE 

TOKENS - TOM 

PRICE - 400 

MORTGAGE VALUE - 200 

RENT - 50 

WITH 1 HOUSE - 200 

WITH 2 HOUSES - 600 

WITH 3 HOUSES - 1400 

WITH 4 HOUSES - 1700 

WITH HOTEL - 2000 

4 HOUSES ON PROPERTY 

IMPROVEMENT COST - 200 

In all of these examples, Tom, Bob and the computer were used as the players involved 
with the various properties. The term "NEW LOCATION" indicates that the player just landed 
on the square after a move. As you can see, all the information normally provided by the 
box game is supplied by the computer. Before a player makes a move, the "OLD LOCATION" 
they were at is first displayed in the came manner. This display function is also invoked 
by other player situations where the message "NEW LOCATION" is replaced by an appropriate 
explanation. 

PAY INCOME TAX - Lines 2400 thru 2499: 

This section of the program allows a player to produce the 200 dollars for INCOKK 
TAX when a player lands on the INCOME TAX square. If needed, a player may mortgage 
properties to gain the needed cash. 

PAY LUXURY TAX - Lines 2600 thru 2699: 



fAX 



This section of the program allows a player to produce the 75 dollars for LUXURY x 
when a player lands on the LUXURY TAX square. If needed, a player may mortgage properti 
to gain the needed cash. 

MORTGAGE PROPERTIES FOR CASH - Lines 2800 thru 2899 and lines 7100 thru 7199: 

This section of the program allows a player to raise additional cash for the payment 
of a debt by selling houses and hotels he owns back to the bank for half their improved 
value and to mortgage unimproved properties with the bank for half their purchase price. 
Lines 7100 thru 7199 contain the logic needed for the computer to make the decisions 
needed to mortgage its properties and sell houses back to the bank for cash 
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SHUFFLE THE COMMUNITY CHEST DECK - Lines 3000 thru 3099: 

This section of the program allows the computer to randomize the sequence of the cards 
in the COMMUNITY CHEST deck. It also keeps track of the whereabouts of the GET OUT OF JAIL 
FREE card. 

SHUFFLE THE CHANCE DECK - Lines 3100 thru 3199: 

This section of the program allows the computer to randomize the sequence of the cards 
in the CHANCE deck. It also keeps track of the GET OUT OF JAIL FREE card. 

ASSIGN PROPERTY STATISTICS - Lines 3200 thru 3-499: 

This section of the program looks up the name, price, rents, mortgage value and 
improvement value of the square number passed in variable AZ. 

COMPUTE RENT TO PAY - Lines 3600 thru 3999: 

This section of the program computes the rent a player must pay depending on the 
number of improvements existing on an owned property he has landed on. This rental is 
stored in variable AP but must later be multiplied by the rent factor BW which is affected 
by a CHANCE card. 

DRAW A COMMUNITY CHEST CARD - Lines 4000 thru 4299: 

This section of the program simulates the drawing of a card from the COMMUNITY CHEST 
deck and sets up the needed variables for taking the actions dictated. 

DRAW A CHANCE CARD - Lines 4300 thru 4799: 

This section of the program simulates the drawing of a card from the CHANCE deck and 
sets up the needed variables for taking the actions dictated. 

PAY RENT TO A PLAYER - Lines 5000 thru 5099: 

This section of the program transfers cash funds between players in the paying of a 
rental. 

DETERMINE COLOR GROUP - Lines 6000 thru 6399: 

This section of the program looks up the color group name and the owner's player 
number for square number AZ. 

UNMORTGAGE PROPERTIES, BUY HOUSES AMD HOTELS - Lines 6500 thru 6699 and lines 7200 
thru 7299: 

At the end of a player's turn, this section of the program allows a player to 
unmortgage any of his properties and to buy houses and hotels for improved properties for 
which he owns all the properties in that color group. Lines 7200 thru 7299 provides the 
logic needed to allow the computer to unmortgage and improve its properties. 

CONCLUSIONS: 

As you can see, most aspects of the normal Monopoly game rules are simulated in this 
game program. The program normally ends when all but one player has gone broke and been 
forced to quit but can be interrupted by the break key at any time. We hope you will enjoy 
challenging the computer to this old and well-loved box game. You must be familiar with 
the Monopoly game and its rules before using this program or trying to enhance its 
capabilities. 
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To save inputting the program yourself, a CLOAD tested cassette copy of the Dro^ram 
is available only from _1H 3 80 NOTEBOOK for the modest price of $4.95 postpaid. Cne final 
note: because of the size of this program, you must remove the REM statements in order 
to fit into a 16K machine! 
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A WORD SEARCH PUZZLE PROGRAM - WITH A TWIST! 

Here is a WORD SEARCH PUZZLE program that goes beyond the scope and capabilities of 
st word search puzzle generators currently available on the market. To begin with, this 
program not only generates word search puzzles but can be given a word search puzzle from 
an external source and the program will solve the puzzle for you! Within its capability 
to generate a word search puzzle, many options are available. 

When the program starts, it asks you what screen mode you would like. In the normal 
screen mode, only 60 characters across and 12 rows down can be displayed at one time. In 
the 32 character mode, only 28 characters across and 10 rows down can be displayed at one 
time. In both modes, neither the across nor the down screen display restrictions in any 
way affect the size of the puzzle you can build. Also, both modes provide a scale for both 
across and down display. 

Next, the program asks what type of line printer might be used. The reason for this 
is that this program can be set up to both display and print your puzzle so that you can 
optionally work on the puzzle without the computer at a later time*. If no printer is to be 
used, you should choose the 80 character per line option since that is the maximum number 
of characters across allowed in any puzzle. The other printer options, 20 characters per 
line and 4.0 characters per line, are for the larger pitch settings on a Quick Printer 
attached to your TR3-80. The option selected here is used to restrict the maximum number 
of characters allowed across in your puzzle. 

How you must enter the actual size of your puzzle. The across dimension is restricted 
by the printer option. The down dimension is restricted to 80 rows maximum. While this 
program is designed to run on a Level 2 TRS-80 with 16K, a puzzle larger than 50 by 50 
will require 32K. 

Following this, the computer will want to know if you are giving it a puzzle of the 
size specified to solve. Entering I will indicate yes. If yes, you will be asked to enter 
your puzzle a row at a time starting at row 1. Each row entered must be the correct number 
of characters across. If the length is incorrect, an error message is disclayed and you 
must re-enter that row. 

After all rows in the puzzle are entered, the computer will ask what words you wish 
to find. If the word is found, the starting row and column are displayed along with the 
direction the word is layed out in the puzzle. These directions may be: across, down, left 
diagonal, right diagonal, backwards across, backwards up, left backwards diagonal, right 
backwards diagonal. These eight directions are also used in generating a puzzle. If the 
word cannot be found, the program will tell you so and ask for another word. When you have 
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asked for all the words you wish, enter an < ( - to end the program. 

If generating a puzzle, the program will ask if the puzzle should be printed. /-.Inter 
a Y to indicate yes. I/ext, the program will ask for all the words you wish" included in 
the generated puzzle. The length of each word must conform to maximum characters specified 
in the printer option specified earlier (20, 40 or 80 characters long). If the puzzle is 
to be printed, each word selected is listed on the printer. If the length of the word is 
incorrect, an error message Is displayed and another word requested. When all your words 
are Inputted, enter an * to have the puzzle generated. During this time, If the puzzle Is 
to be printed, the puzzle will be printed a row at a time. 

Once the puzzle is generated, the program asks what portion of the puzzle you would 
like displayed on the screen. Tailing the screen mode and puzzle size options In 
the program uses the column and row of the letter to appear in the upper left hi 
position on the screen. The program will automatically truncate the display properly so 
that you may set the upper left hand corner column end row to any position in the puzzle. 

Once the display Is complete, you may enter an 1 to end the word search portion of 
the program, L to redisplay a new section of the puzzle or G to guess a word's position 
and direction in the puzzle. In guessing, you are asked for the column and row of the 
first letter of a word in the puzzle, the word and which direction the word is layer! out 
in the puzzle. You are told if your guess is correct or not. )ihen you enter 1, the prograr 
will tell you how many mistakes you made and how many hidden words you have not found yet. 
Be careful in guessing a word's position! Random letter inserts in the puzzle generation 
by the program may accidentally form a word you asked to have hidden. Only the position 
of originally hidden words are valid in a guess! 

If all the words hidden are not found, the program will automatically engage the 
puzzle solving portion of the program to help you find words in the generated puzzle. 

With all these features, we hope you enjoy this unusual version of l/ORD SEARCH PUZZL1 
programming presented in this article. To save inputting this program, you may obtain a 
CLOAD tested cassette of this program only from THE 80 NOTEBOOK for the modest price of 
only v4.95« 

WORD SEARCH PUZZLE PROGRAM LISTING: 
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BEAT THE DEVIL 

by John R. Warrick TRS-80 Level II 

BEAT THE DEVIL was an easy game to develop. The basic idea came from the TV" game show, 
TIG-TAC-DOUGH where contestants try to beat the Dragon and win prizes* 

The game board is a simple Tic-Tac-Toe design of 9 squares. Each square is blank 
until its number is selected by the player. Then either a score or a Devil graphic will 
show up. Although in the program itself, there are 9 values for the 9 squares, the Devil 
will replace one of the values during play. 

Once the player is asked to CHOOSE A SQUARE the Devil has placed himself in one of the 
squares and does not move. Should the player select that particular square, he loses. If 
the player is successful in acquiring 1000 or more points, he wins and the Devil will reveal 
his hiding place to the player. 

There are two random statements during the course of play. The initial RANDOM will set 
the computer selected randomizations to any possible number. The second encounter of the 
random instruction sets up another computer selection but within selected boundaries for 
the variables W and TT. This assures many totally unknown possibilities of where the Devil 
is hiding and the different point values which are also hiding. 

A basic description of the program follows. 
LINE DESCRIPTIONS: 

10 Defines variables and strings. A GOSUB 1000 checks for the end of the program indicating 

a proper CLCAD of the tape. The game instructions are located there. 
20 After printing the introductions to the game, the player is asked if he would like a 

hard game. 
30 The INKEXf function acts as a switch, with variable UU being the switch. If the answer 

to line 20 is YES then the logic ON is a 1 so that UU=1 . For NO, a logical is stored 

in UU. Only a I or an N can be INKEIed. 
50 RANDOM sets up the first or primary randomization of variables W and TT to assure total 

random selection of both values. Winnings tally MN is set to zero for a replay of the 

game. The initial resetting of all variables is accomplished by the RUN and CLEAR 

instructions. 
100 The READ instruction has 10 variables assigned to it e Variable K is the test for a 

match comparison with variable W. ZA thru ZI are game square values read from the DATA 

bank. 
105 Test variable K against W. This sets up a loop, so when they do not match, the program 

reverts back to line 100 until a match is found. W is the RANDOM selection for 1 of 18 

possibilities. To alter the number of DATA lines, the RND(18) in line 60 must be 

altered to reflect the actual number of DATA lines. 
110 - 280 DATA bank. Each line has 10 values, with the first one being the test value 'K. 
290 RESTORE is executed once K=W so that the next round will not hang-up. 
300 - 330 Draws playing board. Line 330 places numbers in the 9 boxes. 
4-10 Variable TT now goes into a second RANDOM for absolute randomization. Only an integer 

betv/een 1 and 9 inclusive can be selected for play. 
420 - 500 Sets values of variable DV, which Is where the Devil will be printed. Once the 

value is set, the program will drop to line 510. 
510 - 600 Prints tallies on screen, 

560, 610, 620 Variable E is used as a switch. Rather than use the logical 1 and for 
YES and NO, the actual number of players is used for ease of reference, so that a, 1 or 

2 is used here. 
590 Variables TL(sum total), PL (player #1), PI(player #2), and DL(Devil) are used to tally 
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the games played. 
610 - 620 Tests for players turns. If player #1 is playing, a right arrow will be 

printed to the left of that players turn. Sometimes, when the Devil is found on the 
first turn of the round, the switch will remain set so that player may have another 
chance. In this case the variable SW is the switch. 
630 Tests for winning the round. If a player accumulates 1000 or more points, he wins. 
640 During play, this asks the player to CHOOSE A SQUARE. 
650 The IMEYf function limits the players' choices to integers 1 thru 9. 
660 Prints players' choice of square. 
670 This tests selection S against the hidden Devil TT and if they equal, the round is 

over and the player lost. 
680 - 760 Will print the variables ZA to ZI in the selected square, from the data 

selection if the Devil is not there. ZA will always go in square 1, ZB in square 2, 
ZC in square 3, and so on. MN is the cumulative register for winnings of the round. 
The GOTO 530 is a loop type instruction to let the player resume playing as he has 
been successful so far in avoiding the Devil. 
770 Prevents an accidental fall-through into the ending routines and doubles as a GCT0 

for line 760. 
780 - 870 Print Devil and loss statements. 

790 - 800 Switches UU and SW are tested. If a hard game (UU=1) and player #1 (8W=0) 
or player #2 (SW=1) then points are deducted from that players' grand total. 
810 MN is set to zero. 

820 FY is set to zero to print loss statement. 
830 - 850 Prints Devil at location selected in lines 420 - 500. 
860 If player has won the round, FY is turned on or FY=1, so that the loss state- 
ment will not be printed. 

870 Player loss statement and Devil win tally (DL) • 
880 Asks to play again. 
890 - 900 For 2 players, this routine changes players turns. The GOTO in 890 prevents 

SW from returning to zero once it is set to 1. 
910 This loops into the print Devil routine upon a player winning. 
920 - 940 INKEY$ to either play again or stop. 
950 Should anything other than a Y or an H be INKEYed, then this loops the program back 

to line 910. 
960 Prints player winning statement. 
970 - 980 Calculates the players' winnings. 
990 Sets switch FY to 1 to print where the Devil was hiding. 
1000 - 1190 Prints game instructions and starting routine. 

1200 - 1260 Sets up play for either 1 or 2 players. For 1 player, it is YOU, and for 2 
players, you enter their names. 

PROGRAM LISTING; 

10 CLS: CLEAR : DEFINTA-Z s DEF3NG G,V,I:GOSUB1000 

20 PRINT CHR$(23):PRINT:ERINT:ERINT"WANT A HARD GAME? (Y/N) » 

30 Q^=IMEYe:IFQ^»» THEN 30 ELSE IF Q^=»Y» THEN UD=1 ELSE IF Q$=»N» THEN UU=0 ELSE 30 

40 'BEAT THE DEVIL GAME DEVELOPED 12/6/79 BY JOHN R. WARRICK, P.O. BOX 82 BREWSTER STREET 

, BROWNS MILLS, HEW JERSEY 08015 
50 CLS s MN=0: RANDOM 
60 W=RND(18):IF W=0 THEN 60 
100 READ K,ZA,ZB,ZC,ZD,Z£,ZF,ZG,ZH,ZI 
105 IF K.NE.W THEN 100 

110 DATA 1,500,450,200,50,150,100,250,300,350 
120 DATA 2,400,450,500,50,100,250,300,200,350 
130 DATA 3,50,100,200,500,400,450,300,250,350 
140 DATA 4,100,200,500,300,250,150,350,450,400 
150 DATA 5,50,100,150,500,350,250,400,450,200 
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160 DATA 6,100,500,^50,350,4-00,50,150,250,200 

170 DATA 7,500,50,150,250,^00,450,350,300,200 

180 DATA 8,250,100,50,300,150,450,250,200,500 

190 DATA 9,350,450,400,50,100,150,500,250,350 

200 DATA 10,350,450,250,150,50,500,100,300,400 

210 DATA 11,100,200,300,400,500,50,150,250,350 

220 DATA 12,150,50,500,200,300,500,400,300,50 

230 DATA 13,50,150,500,400,50,450,250,250,400 

240 DATA 14,100,150,250,500,400,300,350,450,250 

250 DATA 15,300,150,150,50,500,450,400,350,400 

260 DATA 16,50,150,100,500,300,450,250,250,400 

270 DATA 17,150,450,50,500,350,300,250,200,50 

280 DATA 18,500,250,200,50,100,150,400,350,450 

290 RESTORE 

300 'GAME BOARD ROUTINE 

310 I=3:FORX=2TO50:SET(X,Y) :NEXT:Y=12:FORX=2TO50:SET(X,Y) : NEXT: 1=21 :FORX=2TO50 

NEXT :I=30 : FORX=2TO50 : SET(X, Y) :NEXT 
320 X=2:FORI=3TO30:SET(X,I) :NEXT:X=18:FORY=3TO30:SET(X,Y) :NEXT:X=34:FORY=3TO30 

NEXT : X=50 : FORY=3TO30 : SET ( X, Y) : NEXT 
33^> PRINT§199, " 1 " ; : PRINT@207, "2" ; : PRINT@21 5, "3" ; : PRINT@391 , "4" ; : PRINT@399, "5" ; 

,"6"; :PRINT@583,"7 ! '; :PRINT@591,"8"; :PRINT@599,"9"; 
400 'TIC TAG TALLY AND BEAT THE DEVIL ROUTINE 
410 TT=RND(9):IFTT.LE.0 OR TT.GT.9 THEN 410 ELSE 420 
420 IFTT=1 THEN DV=67:GOTO510 
430 IFTT=2 THEN DV=75:GOTO510 
4-40 IFTT=3 THEN DV=83:GOTO510 
450 IFTT=4 THEN DV=259:GOTO510 
460 IFTT=5 THEN DV=267:GOIO510 
470 IFTT=6 THEN DV=275:GOTO510 
480 IFTT=7 THEM DV=451 :GOTO510 
490 IFTT=8 THEN DV=459:GOTO510 
500 IFTT=9 THEN DV=467 
510 PRINT @4V'T T A L S"; 
520 PRINT @94,"THIS ROUND"; 
530 PRINT @107," f";MN; 

540 PRINT @224,«NAME GAMES WINNINGS"; 
550 PRINT @288,F$;: PRINT @300, PL ;: PRINT §307," $";G; 
560 IF E=1 THEN 580 

570 PRINT @352,J#;: PRINT @364,PY; : PRINT @371," #";V; 

580 PRINT §41 6, "D E V I L";: PRINT §428,DL;:IF UU=1 THEN PRINT §435," $";I; 
590 TL=PL+PY+DL 

600 PRINT @480," TOTAL ";TL; 
610 IF E=2 AND SW=0 THEN PRINT ©284,CHR|(94) ; 
620 IF E=2 AND SW=1 THEN PRINT @348,CHR$(94) I 
630 IF MN.GE.1000 THEN 960 
640 PRINT @670," CHOOSE A SQUARE"; 

650 S$=INKEY$:IFS$=»»GR S$.LE."0" OR S$.GT,"9" THEN 650 
660 PRINT @687,«.LT. ";S#;" .GT."; 
670 S=VAL(S|):IF S=TT THEN 780 



SET(X,Y): 
SET(X,Y) : 
PRINT@407 



680 IF S=1 THEN PRINT @131,ZA 

690 IF S=2 THEN PRINT §139,ZB 

700 IF S=3 THEN PRINT @147,ZC 

710 IF S=4 THEN PRINT @323,ZD 

720 IF S=5 THEN PRINT @33 1,ZE 

730 IF S=6 THEN PRINT @339,ZF 

740 IF S=7 THEN PRINT §515,ZG 

750 IF S=8 THEN PRINT @523,ZH 



:MN=MN+ZA:GOTO 530 

:MN=MN+ZB:GOTO 530 

:MN=MN+ZC:GOTO 530 

MN=MN+ZD:GOTO 530 

MN=MM+ZE:GOTO 530 

MN=MN+ZF:GOTO 530 

MN=MN+ZG:GOTO 530 

MN=MN+ZH:GOTO 530 
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760 PRINT @53 1 , ZI ; : MN=MN+ZI 

770 GOTO 530 

780 'PRINTS DEVIL 

790 IF UU=1 AND SW=0 THEN G=G-MN : I=I+MN 

800 IF UU=1 AND SW=1 THEN V=V-MN:I=I+MN 

810 MN=0 

820 FY=0 

830 PRINT @DV,CIIR$(U7),-STRING$(2,131);CHR$(163); 

8^0 PRINT ©DV+64, CIIR#( 1 83) ; CHR|( 1 87) ; CHR$( 183); CHR$( 1 87) ; 

850 PRINT @DV+128,CHR$(32);STRING$(2,143); 

860 IFFY=1 THEN FI=0:GOTO 920 

870 DL=DL+1: PRINT §835," YOU LOSE'''" 

880 PRINT ©910, "CARE TO TRY AGAIN ? (Y/N)» 

890 IF E=2 AND SW=0 THEN SW=1:GOTO 910 

900 IF E=2 AND SW=1 THEN SW=0 

910 IF Ff=1 GOTO 830 

920 A^IMEY$:IF A^"" THEN 920 

930 IF A|="Y" THM 50 

94-0 IF A^"N" THEN PRINT ©910,"IF YOU THINK I'M GONNA PAY OFF, YOU'RE CRAZY'": END 

950 GOTO 880 

960 PRINT @835,"Y OU BEAT THE DEVIL AND WON''". 

970 IF E=1 OR (E=2 and SW=0) THEN G=G+MN:PL=PL+1 

980 IF E=2 AND SW=1 THEN V=V+MN:PY=PY+1 

990 FI=1:GOTO 780 

1000 CLS : PRINTCIiR$( 23) 

1010 PRINT" TRY TO BEAT THE DEVIL" 

1020 PRINT: PRINT" TEST YOUR E.S.P. BY GUESSING" 

1030 PRINT" WHICH SQUARE THE DEVIL IS" 

104.0 PRINT"NOT IN. YOU ACCUMULATE A SCORE" 

1050 PRINT»FOR EACH TIME YOU AVOID THE" 

1060 PRINT"DEVIL IN A GAMS." 
. 1070 PRINT" WHEN THE DEVIL BEATS YOU, YOU" 

1080 PRINT"LOSE YOUR SCORE FOR THAT GAME." 

1090 PRINT" IN A HARD GAME, YOU LOSE WHAT" 

1100 PRINT" SCORE YOU ACCUMULATE FROM YOUR" 

1110 FRINT"TOTAL WINNINGS AS WELL!" 

1120 PRINT: INPUT" **FRESS ENTER TO CONTINUE**" ;A$: CLS 

1130 PRINTCHR$( 23): PRINT .-PRINT" AT THE END OF EACH ROUND" 

1140 PRINT" THE DEVIL WILL SHOW UP IN THE" 

1150 PRINT" SQUARE WHERE HE WAS HIDING," 

1160 PRINT"UNLESS, YOU FIND HIM FIRST!" 

1 1 70 PRINT : PRINT" GOOD LUCK ! ! ! " 

1180 PRINT" GOOD E.S.P. !!!" 

1190 PRINT: INPUT" **PRESS ENTER TO CONTINUE**" ;Af: CLS 

1200 PRINTCHR$(23): PRINT: PRINT" 1 OR 2 PLAYERS?" 

1210 E0=DlK£T§:IF E^»" OR E#.LT."1" OR E|.GT."2" THEN 1210 

1220 E=VAL(E$) 

1230 IF E=1 THEN Ffc=«YOU ":J$=" ": CLS: RETURN 

1240 PRINT: INPUT" ENTER FIRST NAME";F$ 

1250 PRINT: INPUT" ENTER SECOND NAME";Jf 

1260 CLS .-RETURN 

COMING IN MAY 

In May, we will take an indepth look at how your TRS-80 functions. We will begin a 
series of tutorial articles which will take you from the novice's first look at Level I 
BASIC up through Level 2 and Disk BASIC, and finishing with techniques in programming and 
Assembly Language programming. Also, an intriguing simulation of our Solar System based on 
the 1982 "Grand Alignment" of all the planets in the Solar System. 
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SPECIAL! 
********** TRS-80 USERS - TREAT YOUR COMPUTER TO THESE EXCITING PROGRAMS! ********** 

* ENHANCED GRAPHICS AND MORE OPTIONS IN OUR CURRENT VERSIONS! * 

* PRICED AS LOW AS 310 PER PROGRAM! * 

* * 

* AIOS/1 - This program combines NATURAL LANGUAGE with action verb programming. * 

* 4K & up * 

* NLOS/1 - Give your TRS-80 the power to read and understand ENGLISH! Build * 
conversational data bases - solve problems and answer questions relating * 
to information learned, 16K (NLOS/2 - 32K, enhanced, performs learned * 

* tasks, built-in vocabulary!) * 

* MAZE/1 - Randomly generate and solve MAZES of selected complexity, 4K * 
CONSTELLATION - Unique graphics display the night sky, then travel to any star * 

and view the night sky of that ALIEN planet, 16K (version 2, enhanced, * 

* built-in star chart!) * 

* IG/1 - Players may challenge the TRS-80 to a game of YAHTZEE, 16K * 

* CARTOON - Create and run ANIMATED PICTURES on your screen. 41 * 

* CP/1 - Randomly generate and solve CROSSWORD PUZZLES - graphics. 16K * 

* BGSG/1 - Command Colonial or Gylon fleets in BATTLESTAR GALACTICA, 16K * 

* CHECKERS - Challenge your TRS-80 to a game of CHECKERS - graphics, 16K * 

* LND/1 - Buy and manage properties as you build your REAL ESTATE empire. But * 

* beware, your tenants may give you trouble! 1$. * 

* MNP/1 - Challenge your TRS-80 to a game of MONOPOLY. 16K * 

* SWG/1 - Challenge your TRS-80 to a CROSSWORD-like game, 4K * 

* TRIVIA - Test your memory with this BRAIN TEASING game. 16K * 

* POKER - Challenge your TRS-80 to a game of POKER. 4K * 

* BWL/1 - Challenge your TRS-80 to a BOWLING match, 4K * 

* CAL/1 - Turn your TRS-80 into a powerful CALCULATOR. 4K * 

* TMT/1 - Chase a madman forward and backward in TIME, 4K * 

* CLUE - Become a master DETECTIVE and solve murder mysteries. /$ * 

* NB/1 - Hunt down the enemy's fleet in this exciting NAVAL BATTLE. 4K * 

* AR/1 - Test your skill in a wrecked car in DEMOLITION DERBY. 4K * 
BB/1 - Challenge your TRS-80 to a BASEBALL game. 4K * 

* CS/1 - Manage a nuclear power plant in CHINA SYNDROME, 4K * 

* LL/1 - Attempt to land an extraterrestrial SPAGE CRAFT. 4K * 

* ENV/1 - Test your knowledge of ECOLOGY. /$ * 

* RBT/1 - Guide a series of bombs in an attempt to blow up a group of invading * 

ANDROIDS. 4K # 

* WT/1 - Lead a WAGON TRAIN safely across the prairie. 4K * 

* WAR/1 - Command airplanes, TANKS and ARMIES in a war. 4K * 

* MS/1 - Test your MATH SKILLS at various levels of complexity. 4K * 

* SHT/1 - Turn your TRS-80 into a SHOOTING GALLERY. 4K * 

* PB/1 - Turn your TRS-80 into a PINBALL MACHINE. 4K * 

* SW/1 - Engage in INTERSTELLAR CONFLICT against the Zetars, 16K * 

* BNG/1 - Play an exciting game of BINGO with your TRS-80. 4K * 

* GR/1 - Challenge your TRS-80 to a game of GIN RUMMY. 4K * 
% BJ/1 - Challenge your TRS-80 to a game of BLACKJACK, 4K * 

* PP/1 - Challenge your TRS-80 to a PING-PONG game. 4K * 

* FOUR IN A ROW - Play the game of CONNECT FOUR - animated graphics. 16K * 

* TWP/1 - Turn your TRS-80 into a powerful WORD PROCESSOR. 16K * 

* TRG/1 - GENERATE REPORTS from tape data files with headings, control breaks, * 

* record selection and totals, 16K * 

* TRS/1 - Multi-key field SORT UTILITY for tape data files. 16K * 

* TDB/1 - Create, maintain and inquiry to TAPE DATA BASE files. 16K * 

* INVASION - Prevent an ALIEN INVADER from destroying the Earth. 16K « 

* * 

* LEVEL 2 BASIG! COMPLETE INSTRUCTIONS! CLOAD TESTED CASSETTES: #3,4,9! PROGRAM * 

* LISTINGS: #1.25! ORDER 2 OR MORE PROGRAMS - GET 10% OFF! ALL 4.1 PROGRAM LISTINGS * 
FOR #12.95! PROGRAM LISTINGS EASILY ADAPTED TO PET, APPLE AND OTHER BASIC * 

* COMPUTERS! * 

* SEND CHECK OR MONEY ORDER TO: # 
************* CYBERMATE * R,D.#3 BOX 192A * NAZARETH, PA 18064. ************* 



* 
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